﻿Imports TepcelDominio
Imports TepcelBL
Public Class AutenticarUsuario
    Dim err As New System.Windows.Forms.ErrorProvider
    Dim UsuarioBL As New UsuarioBL
    Public Shared Usuario As New Usuario
    Public Shared Almacen As New Almacen

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        If txtLogin.Text.Trim.Length = 0 Then
            err.SetError(txtLogin, "Ingrese Su Nombre de Usuario")
            Return
        Else
            err.SetError(txtLogin, "")
        End If

        If txtPassword.Text.Length = 0 Then
            err.SetError(txtPassword, "Ingrese Su Contraseña")
            Return
        Else
            err.SetError(txtPassword, "")
        End If

        Dim tUsuario As New Usuario
        tUsuario.loginUsuario = txtLogin.Text.Trim
        tUsuario.passwordUsuario = txtPassword.Text
        If UsuarioBL.ValidarUsuario(tUsuario) Then
            Usuario = tUsuario
            tUsuario = Nothing
            My.Forms.Inicio.Show()
            Me.Hide()
        Else
            MsgBox("Usuario y Contraseña no Válido")
            tUsuario = Nothing
            txtLogin.Text = ""
            txtPassword.Text = ""
            txtLogin.Focus()
        End If
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

End Class
